home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs19.d81
/
psdump.sda
/
PS DUMP CBM V0
(
.txt
)
next >
Wrap
Commodore BASIC
|
2009-10-10
|
3KB
|
107 lines
10 GOTO100
20 C$="":FORK=1TO16:B$=MID$(A$,K,1)
30 IFB$=SS$THEN50
40 C$=C$+B$:NEXT
50 RETURN
60 :
70 J=-1:FORI=0TONR:IFLEFT$(P$(I),1)=""THENJ=J+1:P$(J)=MID$(P$(I),2)
80 PRINTJ+1"[157] [199]RAPHICS TO PRINT[145]":NEXT:NR=J:RETURN
90 :
100 POKE56,85:CLR:GOSUB480:Z$=CHR$(0):G$=" ":PRINTCHR$(14):SS$=CHR$(160)
110 BL$="[145] [145]"::B2$=" ":DIMP$(145)
120 PRINT"[147] [208]RINT [211]HOP [199]RAPHICS [196]UMP [214]2.0
125 [153][166]7)"(null)ERSION FOR 1525 (null)RINTERS.
130 PRINTSPC(14)"[202]IM [200]ARVEY
140 [153]" 18538 RIGHT$NKSTER, (null)EDFORD (null)ICH. 48240
150 PRINT:PRINT" [193]T THE PROMPT ENTER:
160 [153]" YWAIT TO PRINT
170 PRINT" N[146] TO NOT PRINT
180 [153]" RWAIT TO MARK REST SAME AS LAST
190 PRINT" Q[146] TO REDISPLAY LIST
200 [153]" LEFT$IGHLIGHTED FILES WILL BE PRINTED. WAIT"
210 [153]" RIGHT$NSERT:
220 PRINT" [208]RINT [211]HOP SOURCE DISK IN UNIT EIGHT"
230 GOSUB980
240 GOSUB360
250 PRINT:PRINT" [212]HESE FILES WERE FOUND: "
260 GOSUB790:GOSUB980
270 GOSUB510
280 PRINT:PRINT" [200]ERE IS HOW THE LIST LOOKS: "
290 GOSUB790
300 GOSUB870
310 IFCTHEN270
320 GOSUB70
330 PRINT:GOSUB620
340 POKE198,0:PRINT:PRINT:END
350 :
360 OPEN15,8,15,"I":OPEN1,8,3,"$0":PRINT" [212]HIS [196]ISK IS:
370 [158]IN:DN$[178][202](IN$,143,23):[153]DN$:[153]
380 NR[178][171]1:[129]I[178]1[164]18:[158]IN:[153]"CHR$ETTING DIRECTORY BLOCK"I
390 [129]J[178]1[164]254[169]32
400 TY[178][198]([202](IN$,J,1)[170]Z$):[139]TY[179][177]130[167]440
410 A$[178][202](IN$,J[170]28,1):B$[178][202](IN$,J[170]29,1):[141]940:[139]Z[179][177]2[167]440
420 A$[178][202](IN$,J[170]3,16)
430 NR[178]NR[170]1:[141]20:P$(NR)[178]C$
435 [153]NR[170]1;"CMD "A$;:[141]960
440 [130]:[139]ST[167]460
450 [153]"ONON":[130]
460 [160]1:[160]15:[142]
470 :
480 IN$[178]" ":[129]I[178]1[164]6:IN$[178]IN$[170]IN$:[130]:IN$[178][202](IN$,2)
490 IN$[178]IN$[170]IN$:IN[178]4640:[142]
500 :
510 B[178]0:A$[178]"Y":[153]"ONON":[129]I[178]0[164]NR:A[178][200](P$(I),1)[178]""
515 PD$[178][202](BL$,2,16[171][195](P$(I))[171]A)
520 [153]"(null)RINT:WAIT "P$(I)" WAIT"PD$"<Y,N,R,QWAIT>";
530 [139]B[167]A$[178]B$:[137]570
540 [139]A[167][153]" Y CMDCMDCMDCMDCMDCMD";
550 [139][168]A[167][153]" N CMDCMDCMDCMDCMDCMD";
560 B$[178]A$:[133]A$:[153]"ON";:[139]A$[178]"R"[167]B[178][171]1:[137]530
570 [153]"ON":[139][168]A[175]A$[178]"Y"[167]P$(I)[178]""[170]P$(I)
580 [139]A[175]A$[178]"N"[167]P$(I)[178][202](P$(I),2,16)
590 [139]A$[178]"Q"[167][142]
600 [130]:[153]:[142]
610 :
620 [159]4,4
640 [139]NR[178][171]1[167]770
650 L[178]0:[129]GG[178]0[164]NR[169]5
660 [129]H[178]0[164]4:G[178]GG[170]H:C$[178]P$(G):[153]" (null)OADING #"G[170]1;"CMD "C$;:[141]960
670 [151]147,0:[158]57812 C$,8,0
680 [151]780,0:[151]781,0:[151]782,88:[158]62622:[158]4688:[158]4806[170]3[172]H
690 [139]G[178]NR[167]H[178]4
700 [130]
710 [153]" (null)(null)RIGHT$(null)(null)RIGHT$(null)CHR$ WAIT";:[141]960:H[178]GG
712 [158]4821:L[178]L[170]1:[152]4,[199](15);
720 [152]4,[200]([200](B2$,(16[171][195](P$(H)))[173]2)[170]P$(H)[170]B2$,16);:[139]H[178]NR[167]750
730 [139]H[179]G[167]H[178]H[170]1:[137]720
750 [152]4:[152]4:[139]L[178]09[167][141]1010
760 [130]:[139]L[177]0[167][141]1010
770 [160]4:[142]
780 :
790 P$(NR[170]1)[178]" ":[153]" "DN$" "
800 [129]J[178]0[164]NR[169]2
810 [139]J[177]0[175](J[173]40[178][181](J[173]40))[167][141]980
820 [153]P$(J)"WAIT"[163]20)P$(J[170]1)
830 [130]
840 [153]" VALND OF LIST "
850 [142]
860 :
870 [153]" B TO BEGIN, A TO ABORT, Q TO REDO WAIT"
880 [161]A$:[139]A$[178]""[167]880
890 C[178]0:[139]A$[178]"Q"[167]C[178][171]1:[137]920
900 [139]A$[178]"A"[167][153]:[153]:[144]
910 [139]A$[179][177]"B"[167]880
920 [153]BL$:[142]
930 :
940 Z[178][198](A$[170]Z$)[170]256[172][198](B$[170]Z$):[142]
950 :
960 [153][201](BL$,39[171][185](I)):[142]
970 :
980 [153]" (null)RESS ATNNY (null)EY TO LENONTINUE "
990 [146]197,64:[146]197,64,64:[153]BL$:[151]198,0:[142]
1010 [139]L[179]09[167][129]J[178]L[164]09:[141]1030:[130]
1015 [152]4,[166]28);DN$
1020 [129]I[178]1[164]5:[152]4:[130]:L[178]0:[142]
1030 [152]4,[199](8);:[129]I[178]1[164]6:[152]4,[199](128):[130]:[152]4,[199](15);
1040 [152]4:[152]4:[142]